home *** CD-ROM | disk | FTP | other *** search
/ Workbench Add-On / Workbench Add-On - Volume 1.iso / Gfx / Edit / ImageEngineer / ARexx / WetInk.rexx < prev    next >
OS/2 REXX Batch file  |  1995-03-19  |  1KB  |  36 lines
  1. /* DIP Rexx script  */
  2. /* by Simon Edwards */
  3. /* Makes a B&W image look like the ink has run */
  4.  
  5. Options results
  6. signal on error            /* Setup a place for errors to go */
  7.  
  8. address 'IMAGEENGINEER'
  9. IE_To_Front
  10. 'request "This script makes a Black and White'||D2C(10)||'image look like the ink has run." "Let''s Go!"'
  11. 'get_file "Select a B&W image" "This One"'
  12. filename=result
  13. if filename="" then exit
  14. 'open "'||filename||'"'
  15. sourcename=result
  16. negative sourcename
  17. negimage=result
  18. close sourcename
  19. 'Convolve '||negimage||' "IE:convolves/Wet_WhiteOnBlack"'
  20. convolveimage=result
  21. close negimage
  22. negative convolveimage
  23. close convolveimage
  24. 'request "All Done." "Cool."'
  25. exit
  26.  
  27. /*******************************************************************/
  28. /* This is where control goes when an error code is returned by IE */
  29. /* It puts up a message saying what happened and on which line     */
  30. /*******************************************************************/
  31. error:
  32. IE_to_front
  33. LAST_ERROR
  34. 'REQUEST "Error detected!!!'||D2C(10)||'Image Engineer error message is as follows'||D2C(10)||result||D2C(10)||'Script failed on line '||SIGL||'"' 'Doh!'
  35. exit
  36.